﻿Namespace Messaging
    <AttributeUsage(AttributeTargets.Event)> _
    Public Class MessagePublicationAttribute
        Inherits Attribute
        'Credit for the original C# version goes to Team MediaPortal
        Dim m_topic As Type
        Public Sub New(ByVal Topic As Type)
            m_topic = Topic
        End Sub
        Public ReadOnly Property Topic()
            Get
                Return m_topic.FullName
            End Get
        End Property
        Public Function GetTopic() As Type
            Return m_topic
        End Function
    End Class
End Namespace